10 REM -- TRAPEZIUM RULE --
20 PRINT"[147]"
30 DEF FNA(X)=1/X
40 PRINT"[215]HAT RANGE:X-LOW,X-HIGH?";
50 INPUT XL,XH
60 PRINT"[200]OW MANY STRIPS";
70 INPUT N
80 H=(XH-XL)/N
90 S=FNA(XL)/2
100 X=XL
110 FOR J=1 TO N-1
120 X=X+H
130 S=S+FNA(X)
140 NEXT J
150 S=S+FNA(XH)/2
160 A=S*H
170 PRINT"AREA IS ";A